home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex Shoot / Virtual Sex Shoot.iso / mac / Virtual Sex Shoot / Virtual Sex Shoot.DXR / 00265_Jump to View and Node.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  652 b   |  21 lines
  1. global gPanoMovieID, gPanoMovieObj, gVR.NodeID, gVR.HPanAngle, gVR.VPanAngle, gVR.ZoomAngle, gVR.Quality
  2.  
  3. on mouseUp
  4.   if the machineType = 256 then
  5.     if objectp(gPanoMovieObj) then
  6.       set tCurrentNodeID to gPanoMovieObj(mGetNodeID)
  7.       if gVR.NodeID <> tCurrentNodeID then
  8.         SetPanoNode(gVR.NodeID, 0)
  9.       end if
  10.     end if
  11.   else
  12.     if gPanoMovieID <> EMPTY then
  13.       set tCurrentNodeID to PanoMovie("Direct", gPanoMovieID, "Get", "nodeID")
  14.       if gVR.NodeID <> tCurrentNodeID then
  15.         SetPanoNode(gVR.NodeID, 0)
  16.       end if
  17.     end if
  18.   end if
  19.   SetPanoMovieView(gVR.HPanAngle, gVR.VPanAngle, gVR.ZoomAngle, gVR.Quality)
  20. end
  21.